home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / aros / c / execute.c < prev    next >
C/C++ Source or Header  |  1996-09-13  |  2KB  |  89 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: execute.c,v 1.3 1996/09/13 17:52:10 digulla Exp $
  4.     $Log: execute.c,v $
  5.     Revision 1.3  1996/09/13 17:52:10  digulla
  6.     Use IPTR
  7.  
  8.     Revision 1.2  1996/08/01 17:40:44  digulla
  9.     Added standard header for all files
  10.  
  11.     Desc:
  12.     Lang:
  13. */
  14. #include <exec/memory.h>
  15. #include <clib/exec_protos.h>
  16. #include <dos/dosextens.h>
  17. #include <dos/dostags.h>
  18. #include <clib/dos_protos.h>
  19. #include <utility/tagitem.h>
  20.  
  21. CALLENTRY /* Before the first symbol */
  22.  
  23. struct ExecBase *SysBase;
  24. struct DosLibrary *DOSBase;
  25.  
  26. static LONG tinymain(void);
  27.  
  28. LONG entry(struct ExecBase *sysbase)
  29. {
  30.     LONG error=RETURN_FAIL;
  31.     SysBase=sysbase;
  32.     DOSBase=(struct DosLibrary *)OpenLibrary("dos.library",39);
  33.     if(DOSBase!=NULL)
  34.     {
  35.     error=tinymain();
  36.     CloseLibrary((struct Library *)DOSBase);
  37.     }
  38.     return error;
  39. }
  40.  
  41. static LONG tinymain(void)
  42. {
  43.     STRPTR args[1]={ 0 };
  44.     struct RDArgs *rda;
  45.     BPTR shell;
  46.     STRPTR s1, s2, s3, buf;
  47.     LONG error=0;
  48.  
  49.     rda=ReadArgs("FILE/A",(IPTR *)args,NULL);
  50.     if(rda!=NULL)
  51.     {
  52.     s1=s2=(STRPTR)args[0];
  53.     while(*s2++)
  54.         ;
  55.     buf=(STRPTR)AllocVec(9+2*(s2-s1),MEMF_ANY);
  56.     if(buf!=NULL)
  57.     {
  58.         CopyMem("COMMAND ",buf,8);
  59.         s3=buf+8;
  60.         s2=s1;
  61.         *s3++='\"';
  62.         while(*s1)
  63.         {
  64.         if(*s1=='*'||*s1=='\"'||*s1=='\n')
  65.             *s3++='*';
  66.         if(*s1=='\n')
  67.             *s3++='n';
  68.         else
  69.             *s3++=*s1;
  70.         s1++;
  71.         }
  72.         *s3++='\"';
  73.         *s3=0;
  74.         shell=LoadSeg("c:shell");
  75.         if(shell)
  76.         {
  77.         RunCommand(shell,4096,buf,s3-buf);
  78.         UnLoadSeg(shell);
  79.         }
  80.         FreeVec(buf);
  81.     }
  82.     FreeArgs(rda);
  83.     }else
  84.     error=RETURN_FAIL;
  85.     if(error)
  86.     PrintFault(IoErr(),"Run");
  87.     return error;
  88. }
  89.